#!
$dirname = "./files";
@files = glob("$dirname/*.txt");
print join("\n",@files);
